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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS fe icon I$ FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY a ACCORDANCE WITH THE ent OF tee pat SE_ AND WITH THE 
INCLUSION OF THE ABOVE ere NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERW vise OMADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


*® ® 
& ® 
we * 
:® ® 
*® 7 
® * 
® ® 
® ® 
: a 
:® ® 
:* TRANSFERRED. ‘ 
: oa 
sf ® 
* ® 
* * 
® ® 
*® ® 
:@ ® 
® we 
*® * 
*® 2 


ODOOCOooooooooooo 
Sooooooo 


OOoooooooocoooo 
oa a 


NAME WN OS ODNAMU EWN $9 ODOM EWN 0 OD NOAU EW OOOO 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORAT ioe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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44 s FACILITY: LIBRARY SUPPORT 
00 ; ABSTRACT: 
00 This module contains the translation table for zoned to packed 
BS conversion using the CVTTP instruction. 
00 
00 ;-- 
00 ; 
0 ; VERSION: 1 
0 7 ; HISTORY: 
0 42 ; AUTHOR: 
0 2 R. Reichert, 19-Feb-1980 
6 4 MODIFIED BY: 
0 p 4 
0 4 
0 4 


L 5 
yiggpeaCvttP 2 AISTORY® 5 Detailed Current Eatt History ‘aagepalope THsossor EeTaNTE. SReSeibcuTsez.man:1 2% (3, 
) -SBTTL HISTORY ; Detailed Current Edit History 
: Edit History for Version 1 of LIBCVTTPZ 
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6 ; 1-002 = Modified copyright date to reflect 1981 release. RKR 6-JAN-81 


er 
oD 
a 


L 1BSAB CVTTP 2 


zz 
> 
—Oo 
i 
AY 
a 
non 
=~ 


a 5 
Translation Table 15-SEP-1984 23:54:1 AX/VMS Macro v04-00 P 
aaSEEm18be Fsoss0y EA KENTS Bache O00 mar:1 2% (8) 
-SBTTL DECLARATIONS 


: INCLUDE FILES: 


OWN STORAGE: 
NONE 


i 
| 
i : EXTERNAL SYMBOLS: 
é3 ; 
ie | srcersay 
090 te : 
ae 
00000000 76 eer ECT ISSCODE PIC, SHR, LONG, EXE, NOWRT 
000 78 ; 
$8 : — 
$000 : , 
0000 es 
Hn 
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IBSAB_CVTTP_2Z Zoned to Packed Translation Table 15-SEP-1984 23:54: AX/VMS Macro V04-00 Page 4 
42800 x 7 LIBSAB_CVTTP_2 ra ioets $7 :0$:07 PORTE. SREICIOCVTTPZ MAR; 1 . (4) i 
f ~SBTTL LIBSAB_CVTTP_Z : 
p++ ; 
$1 3; FUNCTIONAL DESCRIPTION: : 
$8 : This is the zoned to packed translation table. ; 
95 ; It is used in conjunction with a CVTTP machine instruction to ‘ 
38 ; convert zoned numeric data items to packed decimal data type. Given ; 
0 97 ; the binary representation for the highest addressed byte (that is, the : 
a8 ; least significant digit and sign) of a data item in the zored numeric . 
3; data type. the table gtyes the hex representation of the ‘ 
8 ! » 3; highest addressed byte in the packed decimal form of the data item. : 
000 1 3 PF 
0 ! 7 LIBSAB_CVTTP_2Z:: ; Hex : 
00 4 00 00 68 0 00 00 80 105 -BYTE  “*x00,°X00,*xX00,°X00,°X00,°x00,°X00,*x00 : 00-07 § 
00 00 83 83 8 0 3 33 Be 1 $ -BYTE *xX00,*xX00,*X00,°X TR »"X00,*°X00,°X00 ; 08-0F : 
00 00 00 00 00 00 1 1 -BYTE *xX00,*xX00,*X00,°X00,*x00,*x0 Ph 5 a 3 10-17 : 
00 00 00 00 88 0 00 00 001 108 BYTE Rs eat et "X00,°xX00,*xX00,°X00,°X00 ; 18-1F ; 
00 00 00 00 00 00 00 00 00 109 -BYTE *x00,°xX00,°xX00,*X00,°X Band »“X00,*xX00 ; 20-27 ; 
00 00 90 0 9° 000 00 00 110 -BYTE  *xX00,*xX00,*xX00,*°X00,°x0 me FR 6 : 28-2F : 
7C 6C 5C 4C 3C 2C 1C OC 00 111 -BYTE “*XOC,*X1C,*X2C,°X3SC,°X4C,°X5C,°X feak C ; 30-357 ; 
00 00 00 00 00 4 9c 8C 003 6 -BYTE “*X8C,*xX9C,*xX00,*°X00,°X00,*xX00,*°x00,°X00 ; 38-3F : 
00 00 88 00 00 00 00 004 11 -BYTE  *xX00,*x00,*x0 PR 4 Ot "x a et 3 40-47 : 
00 00 00 00 5 00 8p 04 114 -BYTE “*xX00,*xX00,*xX00,*°X00,°xX00,*x0 PAs Oe : rh ae : 
00 00 00 00 00 00 00 005 115 BYTE ts aR 4 at »"X00,*X00,*°X00,*x00,*x00 ; 50-57 ; 
00 00 00 00 00 00 +4 3 05 116 -BYTE *x00,*xX00,*xX00,*°X00,°xX00,°xX aa »“x00 ; 58-5F : 
00 00 00 00 00 00 4 060 117 -BYTE *xX00,*xX00,°X PR's eat Se »“xX00,*°X00 ; 60-67 : 
00 00 00 00 90 00 00 00 38 118 -BYTE *xX00,*xX00,°X00,°X00,°xX00,*x00,°x0 4 3 get ; 
7D 6D 5D 4D 3D 43 1D OD 00 119 BYTE X0D,“*X1D,*X2D,°X ST OTS Ot D; 70-77 3 
00 00 00 6° 3 0 9D 8D 007 120 -BYTE  “*X8D,*X9D,*°X00,°X Beak 0,*x00,*Xx re 3; 78-7F : 
00 00 8 0 8 0 00 oS 121 -BYTE *xX00,*X00,*xX00,*°X00,°X00,°X00,*x00,*x00 ; $387 : 
00 00 00 00 89 0 0 00 1 § -BYTE  *xX00,*x00,°X00,°X Beak on hs ON 0 ; 88-8F ; 
00 00 00 00 00 00 0 009 1 -BYTE *X00,*°X00,*X00,*xX00,°X00,*°x00,°xX00,*X00 ; 90-97 : 
00 00 00 00 00 00 00 00 98 124 -BYTE *xX00,°xX00,*°X00,°X00,°xX00,°xX00,°x00, “Xx : 3: 98-9F 3 
00 00 00 00 00 00 00 00 A 125 BYTE A »"x00,*x00,* Beak »"xX00,*°xX00,*xX00 ; AO-A7 3 
00 00 00 00 00 00 0 3 OA 1$8 BYTE “Xx Banon an »"X00,*xX00,*xX00,*X00,*xX00 ; A8S-AF : 
00 00 00 00 00 00 0 0B 1 -BYTE *xX00,*xX00,*°xX00,°X00,°X00,°x00,*x00,°x00 ; 80-B7 ; 
00 00 00 00 3 8 08 128 -BYTE *xX00,*°X Beak 2"X00,*xX00,*xX00,*X00,°X00 ; B8-B : 
00 00 ; 0 Cc 129 -BYTE *X00,*xX00,°X00,°X00,°xX00,*x00,*°xX00,°xX00 ; CO-C7 : 
00 00 00 0 0 C 130 BYTE *x00,*°xX00,*x00,*x00,°X00,°x00,°xX00,°x00 ; C8-CF : 
0 5 8 + 131 BYTE 1 o"X00,°xX00,°X ang »"x00,°X 3: D0-D7 : 
0 00 D 136 BYTE *x00,*xX00,°xX00,*x00,°X00,°x00,*x00,°X 3; D8-DF : 
00 , 0 00 00 00 00 E 1 -BYTE *x00,*°xX00,°X00,°X A aXe o"x00,*X00 ; EQ-E7 3 
93 90 90 OF O0 O8 BO BFS ee a a ae eeecceee FES ; 
00 00 00 88 80 80 00 0 one ! § -BYTE *x00,*x00,°xX00,*x0 08040 -"x00,°X00 ; FS-FF : 
100 138° END ; 
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Symbol table 6- 
LIBSAB_CVTTP_Z 00000000 RG 01 


tome seocease mannan} 


! Psect synopsis ! 


oer mena enecanan + 


PSECT name Allocation PSECT No. Attributes 
» O88 £888 8088 ( 0.) 90 ( 9.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_LIBSCODE 00001 ( 256.) © Bor PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 


germ reweeeenecaco see emmocanmae + 


! Performance indicators ; 


temseoecaceacuns= ae seen eca 


Phase Page faults CPU Time Elapsed Time 
Initialization ° 68 0 9 a 0:01.69 
pomnens processing 1 3: be : 3: 2° i 
pyaboi table sort “6 09: : \ ? 0000-00-09 
Symbol table output 1 0; : 0: 1 0:00:00 
Psect synopsis output 3 00:00:00.00 0:00:00.11 
Cross-reference output a Es BS 0:00:00.00 
Assembler run totals 254 00:00:01.08 00:00:11.82 


The working set Limit was 900 eo 

2671 bytes (6 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 1 non-local and 0 local symbols. 
138 source Lines were read in Pass 1, produc ing 8 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


+ + 
; Macro Library statistics ; 


Macro Library name Macros defined 
_$255$DUA28: (SYSLIBISTARLET.MLB; 2 SET 0 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBCVTTPZ/OBJ=OBJ$:LIBCVTTPZ MSRC$:LIBCVTTPZ/UPDATE=(ENH$:LIBCVTTPZ) 
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